home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Caml Light 0.61 / Source / src / tools / Do < prev    next >
Encoding:
Text File  |  1992-06-27  |  348 b   |  17 lines  |  [TEXT/MPS ]

  1. # Do
  2. # usage : Do <command that outputs what to do on stdout>
  3.  
  4. Set Echo 0
  5. Set NewWindowRect 1,2,35,500
  6. If "{Temp}" == ""
  7.   Set Temp "{MPW}"
  8. End
  9. Set TempFile "{Temp}Do.temp.`Date -n`"
  10. Echo Set Echo 1 >"{TempFile}"
  11. {"Parameters"} >>"{TempFile}"
  12. Open "{TempFile}"
  13. Find •:∞ "{TempFile}"
  14. "{TempFile}".§
  15. Close -n "{TempFile}"
  16. Delete -i "{Temp}"Do.temp.≈
  17.